home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 16 / 016.d81 / bach sad.bas (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  59 lines
  1. 100 print"[147]  ************************
  2. 105 [153]"  *                      *
  3. 110 print"  *   basic loader for   *
  4. 115 [153]"  * sad  sounding  bach  *
  5. 120 print"  *                      *
  6. 125 [153]"  ************************
  7. 130 ifx<>0then167
  8. 145 :
  9. 150 for x= 49152 to 49362
  10. 155 read a: b= b+a
  11. 160 poke x, a : next x
  12. 167 sys49152  : rem  __ play the music
  13. 168 goto60000 : rem  play again?
  14. 170 rem   end
  15. 175 :
  16. 180 data 169,15,141,24,212,169
  17. 185 data 9,141,5,212,169,17
  18. 190 data 141,6,212,169,17,141
  19. 195 data 4,212,162,0,189,115
  20. 200 data 192,141,1,212,232,189
  21. 205 data 115,192,141,0,212,232
  22. 210 data 189,115,192,141,114,192
  23. 215 data 232,142,113,192,32,64
  24. 220 data 192,169,17,141,4,212
  25. 225 data 174,113,192,224,96,208
  26. 230 data 217,76,92,192,160,0
  27. 235 data 162,0,232,224,255,208
  28. 240 data 251,200,192,120,208,244
  29. 245 data 206,114,192,173,114,192
  30. 250 data 208,234,169,16,141,4
  31. 255 data 212,96,169,0,141,4
  32. 260 data 212,141,5,212,141,6
  33. 265 data 212,141,0,212,141,1
  34. 270 data 212,141,24,212,96,0
  35. 275 data 0,51,97,2,34,75
  36. 280 data 1,38,126,1,39,223
  37. 285 data 1,45,198,1,51,97
  38. 290 data 2,34,75,2,34,75
  39. 295 data 2,53,57,2,45,198
  40. 300 data 1,51,97,1,53,57
  41. 305 data 1,59,190,1,68,149
  42. 310 data 2,34,75,2,34,75
  43. 315 data 2,45,198,2,51,97
  44. 320 data 1,45,198,1,39,223
  45. 325 data 1,38,126,1,39,223
  46. 330 data 2,45,198,1,39,223
  47. 335 data 1,38,126,1,34,75
  48. 340 data 1,38,126,2,39,223
  49. 345 data 1,38,126,1,34,75
  50. 350 data 1,31,255,1,34,75,4
  51. 60000 print"[147][215]ould you like to hear it again?"
  52. 60020 poke198,0:wait198,1:getr$
  53. 60030 ifr$<>"y"andr$<>"n"then60000
  54. 60040 ifr$="y"then100
  55. 60050 :
  56. 63000 rem   connect back to bach boot
  57. 63010 print"[147]load"chr$(34)"bach boot"chr$(34)",8":print"run"
  58. 63020 poke631,13:poke632,13:poke198,2:        end
  59.